home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 13 / CU Amiga Magazine's Super CD-ROM 13 (1997)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1997-08].iso / S / CUCDPrefs.mrx < prev    next >
Text File  |  1997-06-25  |  6KB  |  151 lines
  1. /* Preferences editor for CU Amiga CDs */
  2.  
  3. VerStr = '$VER: CUCDprefs 1.0 (19.6.97) Neil Bothwick'
  4. VerStr = subword(VerStr,2)
  5.  
  6. options results
  7.  
  8. CmdHelp = '"Command for this type of file"'
  9. ArgHelp = '"Arguments for this command\nThe filename will be added to the end.\nUse %s to include the filename somewhere else."'
  10. Menuitem_Shortcut = 0x80422030
  11. Application_AboutMUI = 0x8042d21d
  12. Application_OpenConfigWindow = 0x804299ba
  13.  
  14. address CDPREFS
  15.  
  16. /* monitor error 'KCON:0/0/600/180/CDPrefs/CLOSE/AUTO' */
  17.  
  18. window ID PAGE title '"CU Amiga CD preferences"' command 'quit' port CDPREFS
  19. /* ;;; Menus */
  20.     menu ID PROJM label 'Project'
  21.         item ID ABOUM command '":rexxc/rx CUCD:S/CUCDPrefs.rexx ABOUT"' port COMMAND ATTRS Menuitem_Shortcut '"?"' label 'About'
  22.         item command '"method 'Application_AboutMUI' 0"' port CDPREFS label 'About MUI'
  23.         menu ID SETTM label 'Settings'
  24.             item command '"method 'Application_OpenConfigWindow'"' port CDPREFS label 'MUI...'
  25.             endmenu
  26.         item ID QUITM command 'quit' port CDPREFS ATTRS Menuitem_Shortcut 'Q' label 'Quit'
  27.         endmenu
  28.     menu ID EDITM label 'Edit'
  29.         item ID RESTM command '"CUCD:rexxc/rx CUCD:S/CUCDprefs.rexx RESTORE"' port COMMAND ATTRS Menuitem_Shortcut 'D' label 'Restore to Defaults'
  30.         item ID LASTM command '"CUCD:rexxc/rx CUCD:S/CUCDprefs.rexx LOAD"' port COMMAND ATTRS Menuitem_Shortcut 'L' label 'Last saved'
  31.         endmenu
  32. ;;;
  33.     group id TABS REGISTER LABELS 'Images,Sounds,Other'
  34. /* ;;; Images */
  35.         group HORIZ
  36.             group
  37.                 label DOUBLE LEFT '\033b\033uFiletype'
  38.                 label DOUBLE LEFT 'IFF Picture'
  39.                 label DOUBLE LEFT 'GIF Picture'
  40.                 label DOUBLE LEFT 'JPEG Picture'
  41.                 label DOUBLE LEFT 'IFF Anim'
  42.                 label DOUBLE LEFT 'MPEG Video'
  43.                 space
  44.                 endgroup
  45.             group
  46.                 label DOUBLE LEFT '\033b\033uCommand'
  47.                 popasl ID IFF0 help CmdHelp
  48.                 popasl ID GIF0 help CmdHelp
  49.                 popasl ID JPG0 help CmdHelp
  50.                 popasl ID ANM0 help CmdHelp
  51.                 popasl ID MPG0 help CmdHelp
  52.                 space
  53.                 endgroup
  54.             group
  55.                 label DOUBLE LEFT '\033b\033uArguments'
  56.                 string ID IFF1 help ArgHelp
  57.                 string ID GIF1 help ArgHelp
  58.                 string ID JPG1 help ArgHelp
  59.                 string ID ANM1 help ArgHelp
  60.                 string ID MPG1 help ArgHelp
  61.                 space
  62.                 endgroup
  63.             endgroup
  64. ;;;
  65. /* ;;; Sounds */
  66.         group HORIZ
  67.             group
  68.                 label DOUBLE LEFT '\033b\033uFiletype'
  69.                 label DOUBLE LEFT 'IFF Sample'
  70.                 label DOUBLE LEFT 'WAV Sample'
  71.                 label DOUBLE LEFT 'S3M Module'
  72.                 label DOUBLE LEFT 'XM Module'
  73.                 label DOUBLE LEFT 'MED Module'
  74.                 label DOUBLE LEFT 'Other Module'
  75.                 label DOUBLE LEFT 'MPEG Audio'
  76.                 label DOUBLE LEFT 'MIDI'
  77.                 endgroup
  78.             group
  79.                 label DOUBLE LEFT '\033b\033uCommand'
  80.                 popasl ID SVX0 help CmdHelp
  81.                 popasl ID WAV0 help CmdHelp
  82.                 popasl ID S3M0 help CmdHelp
  83.                 popasl ID XMM0 help CmdHelp
  84.                 popasl ID MED0 help CmdHelp
  85.                 popasl ID MOD0 help CmdHelp
  86.                 popasl ID MP30 help CmdHelp
  87.                 popasl ID MID0 help CmdHelp
  88.                 endgroup
  89.             group
  90.                 label DOUBLE LEFT '\033b\033uArguments'
  91.                 string ID SVX1 help ArgHelp
  92.                 string ID WAV1 help ArgHelp
  93.                 string ID S3M1 help ArgHelp
  94.                 string ID XMM1 help ArgHelp
  95.                 string ID MED1 help ArgHelp
  96.                 string ID MOD1 help ArgHelp
  97.                 string ID MP31 help ArgHelp
  98.                 string ID MID1 help ArgHelp
  99.                 endgroup
  100.             endgroup
  101. ;;;
  102. /* ;;; Others */
  103.         group HORIZ
  104.             group
  105.                 label DOUBLE LEFT '\033b\033uFiletype'
  106.                 label DOUBLE LEFT 'AmigaGuide'
  107.                 label DOUBLE LEFT 'HTML'
  108.                 label DOUBLE LEFT 'LhA archive'
  109.                 label DOUBLE LEFT 'Default'
  110.                 space
  111.                 endgroup
  112.             group
  113.                 label DOUBLE LEFT '\033b\033uCommand'
  114.                 popasl ID AGD0 help CmdHelp
  115.                 popasl ID HTM0 help CmdHelp
  116.                 popasl ID LHA0 help CmdHelp
  117.                 popasl ID DEF0 help CmdHelp
  118.                 space
  119.                 endgroup
  120.             group
  121.                 label DOUBLE LEFT '\033b\033uArguments'
  122.                 string ID AGD1 help ArgHelp
  123.                 string ID HTM1 help ArgHelp
  124.                 string ID LHA1 help ArgHelp
  125.                 string ID DEF1 help ArgHelp
  126.                 space
  127.                 endgroup
  128.             endgroup
  129.         endgroup
  130. ;;;
  131. /* ;;; Buttons */
  132.     group HORIZ
  133.         button ID SAVE   command '":rexxc/rx CUCD:S/CUCDPrefs.rexx SAVE"' port COMMAND help '"Save the settings to\nyour hard drive"' label 'Save'
  134.         button ID USE    command '":rexxc/rx CUCD:S/CUCDPrefs.rexx USE"' port COMMAND help '"Use the settings for this session"' label 'Use'
  135.         button ID CANCEL command 'quit' port CDPREFS help '"Exit without changing the settings"' label 'Cancel'
  136.         endgroup
  137. ;;;
  138.     endwindow
  139.  
  140. address command 'CUCD:rexxc/rx CUCD:S/CUCDprefs.rexx READ'
  141. getvar CfgVersion
  142. if result ~= '# IDer Prefs file - created by CUCD prefs' then call ExitMsg('Your IDer preferences file was not created by this program.\nYou will need to edit it as detailed in the IDer documentation.\nA copy of this is in CUCD:System/CDSupport/IDer')
  143.  
  144. exit
  145.  
  146. ExitMsg:
  147.     parse arg msg
  148.     request title '"CU Amiga CD preferences"' gadgets '"OK"' string msg
  149.     quit
  150.     exit
  151.